home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 September / Chip_2004-09_cd1.bin / program / delphi / download / nastroje / 97.mpth_10[1].exe / {app} / scripts / Fill Data.mps < prev    next >
Text File  |  2004-04-12  |  923b  |  41 lines
  1. = fill with calculated data
  2.  
  3. option globalvars 1
  4. var start dword count dword val byte increment byte editorf file
  5.  
  6. if currentfile == ""
  7.   editorf = fileopen('::new','c')
  8. else
  9.   editorf = fileopen('::current', 'rw')
  10. endif
  11.  
  12. number_radix = 10
  13. number_prefix = ''
  14. number_suffix = ''
  15. start = dword(input("Fill file","Enter start position",text(filegetprop(editorf, 'selstart'))))
  16. if filegetprop(editorf, 'selcount') == 0
  17.   count = filesize(editorf) - start
  18. else
  19.   count = filegetprop(editorf, 'selcount')
  20. endif
  21. count = dword(input("Fill file", "Enter count", Text(count)))
  22. val = byte(input("Fill file","Enter start value",'0'))
  23. increment = byte(input("Fill file","Enter increment",'1'))
  24.  
  25. fileseek editorf start
  26. loop schleife count
  27. showprogress 100, 100
  28. fileclose editorf
  29. end
  30.  
  31. @@schleife
  32. filewrite editorf val
  33. inc val, increment
  34. showprogress count+start, filepos(editorf)-start
  35. return
  36.  
  37.  
  38.  
  39.  
  40.  
  41.